home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / languages / cleo.lzh / Cleo / examples / example2.cl < prev    next >
Encoding:
Text File  |  1993-01-24  |  234 b   |  16 lines
  1. program Test;
  2.  
  3. var
  4.     a,b       : real;
  5.     n,i       :integer;
  6.  
  7. begin
  8.     b := 3.141592; writeln(b);
  9.  
  10.     while b<20 do
  11.         begin
  12.             b  := b+1;
  13.             writeln( b);
  14.         end;
  15.     writeln('OK! ca tourne...');
  16. end.